1 Public Class FrmUNIT_MEASURE
2
3     Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
4         FormAdd(
"FrmUNIT_MEASURE_ADD")
5     End Sub
6
7     Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click
8         Me.Close()
9     End Sub
10
11     Private Sub FrmUNIT_MEASURE_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
12         sqlSTR =
"SELECT * FROM TBL_Unit_Measure"
13         FillListView(ExecuteSQLQuery(sqlSTR), lstunit,
0)
14     End Sub
15
16     Private Sub cmdEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEdit.Click
17         FormEdit(
"FrmUNIT_MEASURE")
18     End Sub
19
20     Private Sub cmdDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDelete.Click
21         If lstunit.Items.Count >
0 Then
22             If MsgBox(
"Are you sure to delete this Unit Measure ?", MsgBoxStyle.YesNo + MsgBoxStyle.Information, "Sales and Inventory") = MsgBoxResult.Yes Then
23                 sqlSTR =
"DELETE FROM TBL_Unit_Measure WHERE ID=" & lstunit.FocusedItem.Text
24                 ExecuteSQLQuery(sqlSTR)
25                 sqlSTR =
"SELECT * FROM TBL_Unit_Measure"
26                 FillListView(ExecuteSQLQuery(sqlSTR), lstunit,
0)
27             End If
28         End If
29     End Sub
30 End Class


Gõ tìm kiếm nhanh...